home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1998 June / Cd Pc Users 9.iso / prog / inst / traydemo / traymenu.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1996-11-12  |  1.5 KB  |  60 lines
  1. VERSION 4.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   1875
  5.    ClientLeft      =   3495
  6.    ClientTop       =   4275
  7.    ClientWidth     =   2835
  8.    Height          =   2565
  9.    Left            =   3435
  10.    LinkTopic       =   "Form2"
  11.    ScaleHeight     =   1875
  12.    ScaleWidth      =   2835
  13.    Top             =   3645
  14.    Width           =   2955
  15.    Begin VB.Menu mPopup 
  16.       Caption         =   "Popup"
  17.       Begin VB.Menu mOpen 
  18.          Caption         =   "&Open"
  19.       End
  20.       Begin VB.Menu mspe1 
  21.          Caption         =   "-"
  22.       End
  23.       Begin VB.Menu mOpt1 
  24.          Caption         =   "Option 1"
  25.       End
  26.       Begin VB.Menu mOpt2 
  27.          Caption         =   "Option 2"
  28.       End
  29.       Begin VB.Menu mOpt3 
  30.          Caption         =   "Option 3"
  31.       End
  32.       Begin VB.Menu mSep2 
  33.          Caption         =   "-"
  34.       End
  35.       Begin VB.Menu mRemove 
  36.          Caption         =   "&Remove"
  37.       End
  38.    End
  39. Attribute VB_Name = "Form2"
  40. Attribute VB_Creatable = False
  41. Attribute VB_Exposed = False
  42. Sub GeneralMessage()
  43.     MsgBox "Menu functionality is contained in Form2"
  44. End Sub
  45. Private Sub mOpen_Click()
  46.     Form1.Show
  47. End Sub
  48. Private Sub mOpt1_Click()
  49.     GeneralMessage
  50. End Sub
  51. Private Sub mOpt2_Click()
  52.     GeneralMessage
  53. End Sub
  54. Private Sub mOpt3_Click()
  55.     GeneralMessage
  56. End Sub
  57. Private Sub mRemove_Click()
  58.     Unload Form1
  59. End Sub
  60.